Sub mergedata()
Sheets(1).Activate
lastrow = ActiveSheet.UsedRange.Rows.Count
For Each sheet In Sheets
If sheet.Index <> 1 Then
rowcount = sheet.UsedRange.Rows.Count
sheet.UsedRange.Copy Destination:=Sheets(1).Cells(lastrow + 1, 1)
lastrow = lastrow + rowcount
sheet.UsedRange.Clear
End If
Next sheet
End Sub